100 Plus Great Games 2/100PLUSV2.BIN/games/PicturePatience.dxr/scripts_4_misc. handlers.ls

Text File | 2002-01-25 | 5.4 KB | 210 lines

global waste, reserve, stock, win, points, pootimer, deals, foundation

on reshuffle arg
  sprite(arg).member = member("backofcard", "playing cards")
  sprite(19).member = member("block", "playing cards")
  sprite(17).member = member("block", "playing cards")
  ass = []
  repeat with i = 1 to waste.cards.count
    ass.add([#rank: waste.cards[i].rank, #suit: waste.cards[i].suit])
  end repeat
  waste.cards.deleteAll()
  return ass
end

on shuffle
  ranks = ["ace", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "jack", "queen", "king"]
  suits = ["hearts", "diamonds", "clubs", "spades"]
  unshuffledCards = []
  shuffledCards = []
  repeat with i = 1 to 2
    repeat with rank in ranks
      repeat with suit in suits
        unshuffledCards.add([#rank: rank, #suit: suit])
      end repeat
    end repeat
    repeat while unshuffledCards.count > 0
      shuffledCards.add(unshuffledCards[random(unshuffledCards.count)])
      unshuffledCards.deleteOne(shuffledCards[shuffledCards.count])
    end repeat
  end repeat
  return shuffledCards
end

on checkwin
  if points = (104 * 10) then
    win = "yes"
    if voidp(pootimer) then
      pootimer = timeout("poo").new(150, #gotoit)
    end if
  else
    checklose()
  end if
end

on gotoit
  pootimer.forget()
  pootimer = VOID
  go("gameover")
end

on makesymbol arg
  return string(arg).symbol
end

on getlist arg
  if arg = 19 then
    return waste.getlastcard()
  end if
  if (arg >= 20) and (arg <= 28) then
    return reserve[makesymbol(arg)].getlastcard()
  end if
end

on checklose
  if stock.cards.count = 0 then
    if deals = 1 then
      repeat with shit = 19 to 19
        if sprite(shit).member.name = "block" then
          next repeat
        end if
        repeat with cakes = 29 to 36
          if foundation[makesymbol(cakes)].cards.count = 0 then
            if (getSuit(sprite(shit).member.name) = symbol(sprite(cakes).mysuit)) and (getValue(sprite(shit).member.name) = getOff(string(sprite(cakes).baserank))) then
              abort()
            end if
            next repeat
          end if
          if (getValue(sprite(shit).member.name) = (getValue(sprite(cakes).member.name) + 1)) and (getSuit(sprite(shit).member.name) = getSuit(sprite(cakes).member.name)) then
            abort()
          end if
        end repeat
      end repeat
      repeat with shit = 20 to 28
        if sprite(shit).member.name = "block" then
          if waste.cards.count > 0 then
            abort()
          end if
        end if
        repeat with cakes = 29 to 36
          if foundation[makesymbol(cakes)].cards.count = 0 then
            if (getSuit(sprite(shit).member.name) = symbol(sprite(cakes).mysuit)) and (getValue(sprite(shit).member.name) = getOff(string(sprite(cakes).baserank))) then
              abort()
            end if
            next repeat
          end if
          if (getValue(sprite(shit).member.name) = (getValue(sprite(cakes).member.name) + 1)) and (getSuit(sprite(shit).member.name) = getSuit(sprite(cakes).member.name)) then
            abort()
          end if
        end repeat
      end repeat
      win = "no"
      pootimer = timeout("fucked").new(130, #gotoit)
    end if
  end if
end

on getValue arg
  if (arg contains "hearts") or (arg contains "spades") then
    return getOff(chars(arg, 1, arg.length - 7))
  else
    if arg contains "diamonds" then
      return getOff(chars(arg, 1, arg.length - 9))
    else
      if arg contains "clubs" then
        return getOff(chars(arg, 1, arg.length - 6))
      end if
    end if
  end if
end

on getOff numba
  if numba = "ace" then
    return 1
  else
    if numba = "two" then
      return 2
    else
      if numba = "three" then
        return 3
      else
        if numba = "four" then
          return 4
        else
          if numba = "five" then
            return 5
          else
            if numba = "six" then
              return 6
            else
              if numba = "seven" then
                return 7
              else
                if numba = "eight" then
                  return 8
                else
                  if numba = "nine" then
                    return 9
                  else
                    if numba = "ten" then
                      return 10
                    else
                      if numba = "jack" then
                        return 11
                      else
                        if numba = "queen" then
                          return 12
                        else
                          if numba = "king" then
                            return 13
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on getSuit arg
  if arg contains "hearts" then
    return #hearts
  else
    if arg contains "diamonds" then
      return #diamonds
    else
      if arg contains "clubs" then
        return #clubs
      else
        if arg contains "spades" then
          return #spades
        end if
      end if
    end if
  end if
end

on getSuitCo arg
  if arg contains "hearts" then
    return #red
  else
    if arg contains "diamonds" then
      return #red
    else
      if arg contains "clubs" then
        return #black
      else
        if arg contains "spades" then
          return #black
        end if
      end if
    end if
  end if
end